TPUG - Toronto PET Users Group/TPUG Users Group CD/TPUG Users Group CD.iso/CRS/crs03.d81/amatrdb.sfx/ardab

Commodore BASIC | 1990-02-12 | 12KB | 319 lines

1 POKE53280,12:POKE53281,11:POKE646,13:C$=CHR$(13):Z$="-":TL=53121:PRINT"WAIT"
2 GOSUB30040:BP=53192:ER=53146:GOSUB20000:PRINT"[147]"
4 INPUT"ENTER DATE(EX:12/04/90)";DT$:INPUT"TIME (UTC)";T$:IFLEN(T$)<>4 THEN4
5 IFVAL(T$)<0 ORVAL(T$)>2359ORVAL(T$)=0  THEN PRINT"ENTER 4 DIGITS.":GOTO4
6 V=1:TI$=T$+"00":IF LEN(DT$)<>8THEN4
7 CLOSE15
10 PRINT"[147][153]WELCOME TO AMATUER RADIO DATA BASE":PRINT:POKE53281,11:POKE53280,12
11 PRINT"DATE: ";DT$; " TIME:";LEFT$(TI$,4)" UTC"
15 PRINT"  F1 LOGBOOK[146]          F3 INFORMATION"
16 PRINT"F7 EXIT (RESETS 64)"
17 PRINT:PRINT:PRINTCHR$(150)"E=EMERGENCY PHONE LIST":POKE646,13
19 A$=""
20 GETA$:UU$=""
21 IFA$=CHR$(133)THEN GOTO 1000
22 IFA$=CHR$(134)THEN GOTO 100
24 IFA$=CHR$(136)THEN SYSER,10,1:INPUT"ARE YOU SURE ";UU$:
25 IF UU$="Y"THENSYS64738
26 IFVAL(UU$)<1THENSYSER,10,1
27 IFA$=CHR$(69)THEN3900
28 SYSTL,2,20:PRINTLEFT$(TI$,4):GOSUB31
29 POKE646,13:GOTO20
31 TC=VAL(TI$):IFTC> 000000 ANDTC<000500THEN33
32 RETURN
33 PRINT"CHANGE DATE @ 0000 BY RESTARTING":RETURN
40 RH=INT(RE/256):RL=RE-256*RH:
41 PRINT#15,"P"+CHR$(96+3)+CHR$(RL)+CHR$(RH)+CHR$(1):RETURN
50 INPUT#15,EN,EM$,ET,ES:IFEN<20THENRETURN
51 IFEN=50 THEN PRINT#3,"[255]"
52 IFEN=50 THEN RETURN
53 SYSBP:SYSBP:PRINT"ERROR: ";EM$;EN:CLOSE3:CLOSE15:SYSBP:SYSBP
54 FORJ=1TO2000:NEXTJ:GOTO10
100 PRINT"[147]INFORMATION/UTILITY MENU"
101 PRINTLEFT$(TI$,4);"/";DT$
105 PRINT"1[146] FREQ. LIST":PRINT"2[146] DISK UTILITY
110 [153]"3WAIT NOTE PAD ":[153]"4WAIT CREATE NEW AWARD FILE":
111 [153]"(LIMIT OF 4 FILES)":[153]"F7WAIT EXIT"
130 [161]A$:[139]A$[178][199](136)[167][137]10
131 [139][197](A$)[179]1[176][197](A$)[177]4[167]130
132 [145][197](A$)[137]300,3255,4000,1600
133 [137]130
300 [153]"LOADTHIS IS USED TO RECALL YOUR FAVORITE    FREQ.":RB$[178]"FREQ"
301 [159]15,8,15:[159]3,8,3,"0:"[170]RB$[170]",S,R":[141]50
302 [132]3,JA$,JB$,JC$,JD$,JE$,JF$,JG$,JH$,JI$,JJ$
303 [132]3,AA$,AB$,AC$,AD$,AE$,AF$,AG$,AH$,AI$,AJ$:[141]50:[160]3:[160]15
310 [153]"   NAME"[163]25)RB$   :[153]
311 [153]"1. "[200](JA$,20)[163]25)AA$:[153]"2. "[200](JB$,20)[163]25)AB$
312 [153]"3. "[200](JC$,20)[163]25)AC$:[153]"4. "[200](JD$,20)[163]25)AD$
313 [153]"5. "[200](JE$,20)[163]25)AE$:[153]"6. "[200](JF$,20)[163]25)AF$
314 [153]"7. "[200](JG$,20)[163]25)AG$:[153]"8. "[200](JH$,20)[163]25)AH$
315 [153]"9. "[200](JI$,20)[163]25)AI$:[153]"10. "[200](JJ$,20)[163]25)AJ$
321 [153]:[153]"F1WAIT MODIFY LIST":[153]"F7WAIT EXIT"
322 [161]A$:[139]A$[178][199](133)[167]325
323 [139]A$[178]""[167]322
324 Q[178]1:[137]346
325 [133]" MODIFY WHICH ONE [1-10]";P:[139]P[179]1[176]P[177]10 [167]325
326 [129]X[178]1[164]10:[139]P[178]X[167][145] P [137] 329,330,331,332,333,334,335,336,337,338
327 [130]X
329 [133]"NAME ";JA$:[153]RB$;:[133]AA$:[137]340
330 [133]"NAME ";JB$:[153]RB$;:[133]AB$:[137]340
331 [133]"NAME ";JC$:[153]RB$;:[133]AC$:[137]340
332 [133]"NAME ";JD$:[153]RB$;:[133]AD$:[137]340
333 [133]"NAME ";JE$:[153]RB$;:[133]AE$:[137]340
334 [133]"NAME ";JF$:[153]RB$;:[133]AF$:[137]340
335 [133]"NAME ";JG$:[153]RB$;:[133]AG$:[137]340
336 [133]"NAME ";JH$:[153]RB$;:[133]AH$:[137]340
337 [133]"NAME ";JI$:[153]RB$;:[133]AI$:[137]340
338 [133]"NAME ";JJ$:[153]RB$;:[133]AJ$:[137]340
340 [159]15,8,15:[159]3,8,3,"@0:"[170]RB$[170]",S,W":[141]50
341 JL$[178]JA$[170]C$[170]JB$[170]C$[170]JC$[170]C$[170]JD$[170]C$[170]JE$[170]C$[170]JF$[170]C$[170]JG$[170]C$[170]JH$[170]C$[170]JI$[170]C$[170]JJ$
342 [152]3,JL$
343 AL$[178]AA$[170]C$[170]AB$[170]C$[170]AC$[170]C$[170]AD$[170]C$[170]AE$[170]C$[170]AF$[170]C$[170]AG$[170]C$[170]AH$[170]C$[170]AI$[170]C$[170]AJ$
344 [152]3,AL$
345 [160]3:[160]15
346 A$[178]"":JA$[178]A$:JB$[178]A$:JC$[178]A$:JD$[178]A$:JE$[178]A$:JF$[178]A$:JG$[178]A$:JH$[178]A$:JI$[178]A$:JJ$[178]""
347 AA$[178]A$:AB$[178]A$:AC$[178]A$:AD$[178]A$:AE$[178]A$:AF$[178]A$:AG$[178]A$:AH$[178]A$:AI$[178]A$:AJ$[178]""
348 [139]Q[178]0[167][137]301
349 Q[178]0:[137]10
1000 [143]LOGGING FUNCTION
1001 [153]"LOAD YOUR LOGBOOK  ";DT$[163]26)[200](TI$,4);" UTC "
1002 [153]"1. MODIFY/READ LOGS":[153]"3. DISPLAY OR PRINT LOGS
1003 PRINT"[145][145]2. UPDATE LOGS":PRINT"4. SEARCH QSO'S":PRINT" PUSH F7[146] TO EXIT
1004 [161]A$:[158]TL,0,26:[153][200](TI$,4)
1005 [139]A$[178][199](136)[167]10
1006 [139][197](A$)[179]1[176][197](A$)[177]4[167]1004
1007 [139][197](A$)[178]2[167][153]"LOADDO YOU WANT"C$;"1.ACTIVE LOG":[133]"2. UPDATE LOG";DR
1009 [145][197](A$)[137]1010,1100,1300,1400
1010 [153]"LOADREAD LOGS":[133] "ENTER RECORD #";RE
1012 [159]15,8,15:[159]3,8,3,"LOGBOOK,L,"[170][199](88):[141]50:[141]40:[141]41
1013 [132]3,D$,BO$,P$,SW$,F$,R$,Q$,MO$,COM$,QS$
1014 [160]3:[160]15:[141]1015:[137]1020
1015 [153]"LOADDATE WAITSYS";D$;," PRINT TIME: WAITSYS ";BO$
1016 [153]"PRINTSTATION WORKED:WAITSYS";SW$
1017 [153]"PRINTPOWER:WAITSYS";P$;,"  PRINTRST(S/R): SYSWAIT ";R$
1018 [153]"PRINTFREQ:WAITSYS ";F$;"PRINT MODE:WAITSYS";MO$:[153]"PRINTQTH:WAITSYS";Q$
1019 [153]"PRINTCOMMENTS:WAIT SYS";COM$:[153]"PRINTQSL(S/R) WAITSYS";QS$:[142]
1020 [153]"PRINT PRESS F1WAIT TO MODIFY, PRESS ANY KEY TO     CONTINUE
1021 GETA$:IFA$=""THEN1021
1022 IFA$=CHR$(133)THENGOTO1030
1023 GOTO1000
1030 OPEN15,8,15:OPEN3,8,3,"LOGBOOK,L,"+CHR$(88)
1031 GOSUB40:GOSUB50:GOSUB2060:GOTO1000
1100 PRINT"[147]LOG UPDATE       ";LEFT$(TI$,4);"/";DT$  :PRINT" NO COMMAS":BO$=""
1101 IFDR=2 THEN INPUT"TIME ON ";BO$:INPUT"TIME OFF";TF$:INPUT "DATE ";D$
1102 IFDR=1THENBO$=LEFT$(TI$,4):D$=DT$
1103 INPUT"CALL";SW$:PRINT"FREQ.[NOW]",F$;:INPUTF$:PRINT"RST(S/R)[NOW]",R$;
1104 INPUTR$:INPUT"QTH..";Q$:INPUT"QSL(S/R)";QS$:PRINT"POWER[NOW]",P$:INPUTP$
1105 PRINT"MODE[NOW]",MO$:INPUTMO$:INPUT"COMMENTS";COM$
1106 PRINT"F1[146] TO CONTINUE OR END QSO":PRINT"F7 TO EXIT"
1107 GETA$:IFA$=CHR$(136) THEN GOTO1000
1108 IFA$=CHR$(133) THEN GOTO 1112
1109 IF A$=""THEN1107
1110 GOTO1107
1112 IFDR=1THEN TF$=LEFT$(TI$,4):BO$=BO$+Z$+TF$:GOTO1114
1113 BO$=BO$+Z$+TF$
1114 DAT$=D$+C$+BO$+C$+P$+C$+SW$+C$+F$+C$+R$+C$+Q$+C$+MO$+C$+COM$+C$+QS$:
1115 GOSUB1140:OPEN15,8,15:OPEN3,8,3,"LOGBOOT,S,R":GOSUB50
1117 INPUT#3,A:GOSUB50:IFA>990THENPRINT" LOG HAS 10 CONTACTS OR LESS TO LOG"
1118 RE=A:CLOSE3:OPEN3,8,3,"@0:LOGBOOT,S,W":PRINT#3,A+1:GOSUB50:CLOSE3
1119 IFA>999THENPRINT"FILE HAS REACHED ITS LIMIT INITIATE NEW DISK":SYSBP
1120 PRINT"THIS IS RECORD# ";RE;" SAVING..."
1121 OPEN3,8,3,"LOGBOOK,L,"+CHR$(88)
1122 GOSUB40:GOSUB50
1126 PRINT#3,DAT$:GOSUB50:GOSUB41:CLOSE3:CLOSE15:GOSUB 1500:BO$="":TF$=""
1127 GOTO1000
1140 PRINTLEN(DAT$):IFLEN(DAT$)>87THEN GOTO1150
1143 RETURN
1150 PRINT"YOUR DATA IS TO LONG, PLEASE RENTER YOUR DATA. YOU CAN NOT WRITE"
1151 PRINT"MORE THEN 87 CHARACTERS PER LOG ENTRY"
1152 PRINT"PLEASE REENTER THE CONTACT"
1155 INPUT"PRESS RETURN TO CONTINUE";MM$
1156 GOTO1100
1300 A=0:B=4:N$=CHR$(16):REM SCREEN PRINT
1301 PRINT"[147]       PRINT/DISPLAY LOG":A$(5)="LOGBOOK"
1302 PRINT"WHICH LOG":FORG=1TO5:PRINTG"="A$(G):NEXTG:INPUTC
1305 PRINT"P[146]RINT OR S[146]CREEN":INPUTA$
1306 IF A$=""THEN 1300
1307 IFA$="P"THEN 1330
1308 INPUT"BEGINNING RECORD #";BR:INPUT"ENDING RECORD #";GR
1310 OPEN15,8,15:OPEN3,8,3,+A$(C)+",L,"+CHR$(88)
1311 GOSUB50:FORRE=BRTOGR:GOSUB40
1312 INPUT#3,QD$,BO$,P$,SW$,F$,R$,Q$,MO$,COM$,QS$
1313 IFQD$="[255]"THENCLOSE3:CLOSE15:GOTO1327
1314 GOSUB50:GOSUB41:GOSUB50
1315 IFA=1THEN1319
1317 PRINT"[147]LIST IS DISPLAYED IN THE FOLLOWING ORDER:";
1318 PRINT"DATE TIME POWER CALL FREQ  RST QTH MODE  COMMENTS QSL ":
1319 PRINT"#";RE
1320 A=1:PRINTQD$,BO$,P$,SW$,F$,R$,Q$,MO$,COM$;
1321 PRINT" ";QS$;"" :IFRE=BTHEN1323
1322 NEXTRE
1323 CLOSE3:PRINT" N=NEXT   E=EXIT":B=B+4:A=0
1324 GETA$:IFA$="N"ANDGR>RETHENOPEN3,8,3,+A$(C)+",L"+CHR$(88):GOSUB50:NEXTRE
1325 IFA$="E"THENCLOSE3:CLOSE15:GOTO1000
1326 GOTO1324
1327 PRINT"PRESS ANY KEY TO RETURN TO MENU":A=0:R=0
1328 GETA$:IFA$=""THEN1328
1329 GOTO1000
1330 OPEN15,8,15:OPEN3,8,3,+A$(C)+",L,"+CHR$(88):S$="   ":GOSUB50:CLOSE4
1331 INPUT"BEGINNING #";BN:INPUT"ENDING #";EO:FORRE=BNTOEO:GOSUB40:GOSUB50
1332 INPUT#3,QD$,BO$,P$,SW$,F$,R$,Q$,MO$,COM$,QS$
1333 IFQD$="[255]"THENCLOSE3:CLOSE15:GOTO10
1334 GOSUB50:GOSUB41:GOSUB50
1350 IFR=1THEN1355
1351 CLOSE4:OPEN4,4:PRINT#4,"LOGBOOK  PRINTED:";DT$
1353 PRINT#4,BP$ "DATE";N$"11";"CALL";N$"21";"TIME";N$"33";"POWER";N$"41";
1354 PRINT#4,"RST S/R";N$"50";"FREQ";N$"59";"QTH";N$"75";"MODE":R=1
1355 PRINT#4,"#"RE
1356 PRINT#4,QD$+N$;"11"+SW$+N$;"21";+BO$+N$;"33"+P$+N$;"41"+R$+N$;"50"+F$;
1357 PRINT#4,N$;"59";Q$;N$;"75";MO$
1358 PRINT#4,"--------------------------------------------":IFRE>EOTHEN1360
1360 NEXTRE:CLOSE3:CLOSE4:GOTO10
1400 PRINT"[147]SEARCH FOR:":PRINT"1=DATE":PRINT"2=CALL":PRINT"3=QSL OUTSTANDING"
1405 PRINT"4=QTH":PRINT"5=MODE":CLOSE4:OPEN4,4
1406 PRINT#4,"LOG SEARCH"
1407 PRINT#4,"DATE   TIME      POWER  CALL    FREQ  RST  QTH     MODE    QSL
1410 [161]A$:[139][197](A$)[178]1 [167][133]"ENTER DATE [I.E.02/01/89]";A$:[137]1425
1415 [139][197](A$)[178]2 [167] [133]"ENTER CALL";A$:[137]1425
1416 [139][197](A$)[178]3 [167] A$[178]"N":[133]"1=NOT SENT, 2=NOT RECEIVED";A:[137]1425
1417 [139][197](A$)[178]4 [167] [133]"ENTER QTH [I.E.TEXAS=TX";A$:[137]1425
1418 [139][197](A$)[178]5 [167] [133]"ENTER MODE";A$:[137]1425
1419 [137]1410
1425 [159]15,8,15:[159]3,8,3,"LOGBOOK,L"[170][199](88):[141]50:G$[178]"   "
1427 [129] RE[178]1[164]1000:[141]40:[141]50
1428 [132]3,D$,BO$,P$,SW$,F$,R$,Q$,MO$,COM$,QS$:[141]41:[141]50
1429 [139]D$[178]"(null)"[167] [160]3:[160]4:[160]15:[137]1000
1430 [139]A$[178]D$[176]A$[178]SW$[176]A$[178]MO$[176]A$[178][200](Q$,2) [167]1434
1431 [139]A[178]1 [167] [139] [200](QS$,1)[178]A$ [167] 1434
1432 [139]A[178]2 [167] [139][201](QS$,1)[178]A$ [167] 1434
1433 [130]RE:[139]RE[177]999 [167] [160]4:[160]3:[160]15:A$[178]"":[137]1000
1434 [152]4,"#";RE:[152]4,D$G$BO$G$P$G$SW$G$F$G$R$G$Q$G$MO$G$COM$G$QS$ C$
1435 [130]RE:[160]3:[160]15:[137]1000
1500 [153]"AWARDS FILE":[133]"ADD LAST QSO [Y/N]";A$:[139]A$[178]"Y"[167]1510
1501 [142]
1510 [153]"AWARD FILE NAMES":[129]K[178]1[164]4:[153]K"="A$(K):[130]K
1515 [133]"ENTER AWARD FILE #";B:[139]B[177]4[167]1517
1516 [137]1520
1517 [153]"INCORRECT RESPONSE: FUNCTION CANCELLED":[158]BP
1518 [129]K[178]1[164]1200:[130]K:[137]1500
1520 [159]15,8,15:[159]2,8,2,"0:AF"[170]A$(B)[170]",S,R":[132]2,RE:[160]2:[153]A$(B)
1522 [159]3,8,3,"0:"[170]A$(B)[170]",L,"[170][199](88):[141]40:[141]50:[152]3,DAT$
1523 [141]41:[160]3
1524 RE[178]RE[170]1:[159]2,8,2,"@0:AF"[170]A$(B)[170]",S,W":[141]50:[152]2,RE:[141]50
1525 [160]2:[153]"QSO STORED IN ";A$(B);" AWARD FILE":[160]15:[142]
1600 [153]"LOADPRESENT AWARD FILES":[129]G[178]1[164]4:[153]A$(G):[130]G
1605 [129]G[178]1[164]4:[139]A$(G)[178]"NO NAME" [167]1610
1606 [130]G:[153]"ALL AWARD FILES USED":[158]BP:[133]"DO YOU WISH TO DELETE ONE";A$
1607 [139][200](A$,1)[178]"Y"[167][153]"FILE WILL NOT BE ERASED, BUT TO READ IT YOU"
1608 [153]"MUST REENTER FILE NAME TO REENTER THAT FILE"
1609 [133]"DELETE WHICH FILE? [1 TO 4]";G:[139] G[177]4[167] [137]1609
1610 [133]"ENTER NEW AWARD FILE NAME (RETURN CANCELS)";A$
1612 [139][195](A$)[177]2 [167] A$(G)[178]A$:[137]1615
1613 [137]3264
1615 [133]"ENTER MAX # OF CONTACTS NEEDED TO QUALIFY";RC
1620 [159]15,8,15:[159]3,8,3,"0:"[170]A$(G)[170]",L,"[170][199](88):[141]50
1622 [129]RE[178]1[164] RC:[141]40:[152]3,"(null)":[141]50:[141]41:[141]50:[130]RE:
1624 [160]3:[159]3,8,3,"@0:AF,S,W":[152]3,A$(1);C$;A$(2);C$;A$(3);C$;A$(4):[160]3
1626 [160]3:RE[178]1:[159]3,8,3,"@0:AF"[170]A$(G)[170]",S,W":[152]3,RE:[160]3:[160]15
1636 [133]"AWARD FILE SET UP, PRESS RETURN";A$:[137]10
2060 [153]"AS YOU MODIFY THE LOG TO KEEP  THE INFO THE SAME PRESS RETURN"
2061 [153]"LOG UPDATE     ";[200](TI$,4);"DATE";DT$:[153]"NO COMMAS!!
2062 PRINT"DATE(NOW";D$")":INPUTD$:PRINT"NOW";BO$:INPUT"TIME ON ";BO$
2063 INPUT"TIME OFF";TF$:INPUT"POWER";P$:IFTF$=""THEN Z$=""
2064 PRINT"NOW "SW$:INPUT"STATIONED WORKED";SW$:PRINT"NOW "F$:INPUT"FREQ.";F$
2065 PRINT"NOW"R$,Q$,QS$:INPUT"RST(S/R)";R$:INPUT"QTH..";Q$:INPUT"QSL(S/R)";QS$
2066 PRINT"NOW",MO$,COM$:INPUT"MODE";MO$:INPUT"COMMENTS";COM$
2067 IFLEN(BO$)<5THENBO$=BO$+Z$+TF$
2068 DAT$=D$+C$+BO$+C$+P$+C$+SW$+C$+F$+C$+R$+C$+Q$+C$+MO$+C$+COM$+C$+QS$
2069 PRINT#3,DAT$:GOSUB50:GOSUB41:GOSUB50
2070 CLOSE3:CLOSE15:Z$="-":RETURN
3200 REM PRINT UTILITY
3203 PRINTTAB(15)"[147]PRINT UTILITY
3206 [153]" F1WAIT PRINT CHECK-IN LIST
3209 PRINT" F3[146] OPEN
3210 [153]" F7WAIT EXIT
3212 GETA$:IFA$=CHR$(133)THEN3230
3213 IFA$=CHR$(134)THEN 3212
3214 IFA$=CHR$(136)THEN 3000
3215 GOTO3212
3230 OPEN4,4:R$=CHR$(16):PRINT#4," CHECK IN LIST FOR ";NN$;"   DATE ";DT$
3231 PRINT#4," CI#  TFC            CALL      CIT   COT
3232 [152]4,"------------------------------------------":
3233 [129]I[178]1[164] CI
3235 [152]4,I;R$"06";TFC$(I);R$"21";CS$(I);R$"31";CIT$(I);R$"37";COT$(I)
3237 [130]I
3238 [152]4,C$ "TRAFFIC LIST"
3239 [129]I[178]1[164]240:[139]TL$(I)[178]"" [167] [160]4:[137]3000
3240 [152]4,TL$(I):[130]I
3245 [137]3000
3255 [133]"DO YOU WANT TO CREATE LOGBOOK ON NEW DISKETTE[Y/N]";I$
3256 [139]I$[178]"Y"[167]3260
3258 [151]53281,14
3259 [137]3264
3260 [143] DISK UTILITY
3261 [133] "DO YOU WANT TO START A NEW LOGBOOK[Y/N]";NL$
3262 [139]NL$[178]"N"[167] 100
3263 [139]NL$[178]"Y"[167] 3269
3264 [153]"LOADINCORRECT RESPONSE: FUNCTION CANCELLED":[158]BP
3265 [129]K[178]1[164]1200:[130]K:[137]10
3269 [141]3270:[137]10
3270 [153]"LOADWARNING YOU MOST PUT IN A BLANK         FORMATTED DISK"
3271 [153]"YOUR PROGRAM DISK WILL BE ERASED          WHEN YOU TRY TO "
3272 [153]"CREATE A NEW LOGBOOK FILE ON IT."
3273 [153]"PRESS F1WAIT TO CONTINUE, F7WAIT TO EXIT"
3274 [161]A$:[139]A$[178][199](136)[167] 100
3275 [139]A$[178][199](133)[167]3280
3276 [137]3274
3280 [159]15,8,15:[159]2,8,2,"0:LOGBOOT,S,W":[141]50:A[178]1:[152]2,A:[160]2:
3281 A[178]0:RE[178]1000:[159]3,8,3,"LOGBOOK,L,"[170][199](88):[141]50
3282 [141]40:[141]50:[152]3,[199](255)
3283 [141]50:[141]41:[141]50
3284 [160]3:[159]4,8,4,"0:PHONE,S,W":[152]4,"**":[160]4:[159]5,8,5,"0:FREQ,S,W"
3285 [152]5,"**":[160]5:[159]3,8,3,"0:NOTE PAD,S,W":[152]3,"**":[160]3
3286 [139]ST[177]0[167][153]"ST ERROR #";ST
3287 [159]3,8,3,"0:AF,S,W":[129]G[178]1[164]4:A$(G)[178]"NO NAME":[130]G:
3288 [152]3,A$(1);C$;A$(2);C$;A$(3);C$;A$(4):[160]3:[160]15:[137]50000
3900 [153]"LOADEMERGENCY PHONE LIST":[151]53280,24:RB$[178]"PHONE":[137] 301
4000 [159]15,8,15:[151]53281,13
4010 [159]3,8,3,"0:NOTE PAD,S,R":[141]50
4015 [132]3,JU$,JW$,JX$,JY$,JZ$,KA$:[141]50
4019 [153]"LOADSTOP              NOTE PAD                  "
4020 [153]"1. ";JU$:[153]"2. ";JW$:[153]"3. ";JX$:[153]"4. ";JY$
4021 [153]"5. ";JZ$:[153]"6. ";KA$
4023 [153]"   F1WAIT TO UPDATE":[153]"   F7WAIT  TO EXIT ":[160]3
4024 [161]A$:[139]A$[178][199](133)[167] 4027
4025 [139]A$[178][199](136)[167][160]15:[137]4050
4026 [137]4024
4027 [153]"PRESS RETURN TO KEEP NOTES THE SAME     NO COMMAS"
4028 [133]"1. ";JU$:[133]"2. ";JW$:[133]"3. ";JX$:[133]"4. ";JY$:[133]"5. ";JZ$
4029 [133]"6. ";KA$:[159]3,8,3,"@0:NOTE PAD,S,W"
4030 KB$[178]JU$[170]C$[170]JW$[170]C$[170]JX$[170]C$[170]JY$[170]C$[170]JZ$[170]C$[170]KA$
4031 [152]3,KB$
4035 [141]50:[160]3:[160]15:
4040 [153]"PRESS ANY KEY TO ESCAPE"
4045 [161]A$:[139]A$[178]""[167]4045
4050 [137]10
5050 [139][195](D$)[179][177]8[167] [133] "DATE MUST BE 8 CHARACTERS LONG:REENTER";D$
5055 [139][195](BO$)[179][177]4[167] [133] "TIME ON MUST BE 4 CHARACTERS LONG:REENTER ";BO$
5060 [139][195](TF$)[179][177]4[167] [133] "TIME OFF MUST BE 4 CHARACTERS LONG:REENTER ";TF$
6065 [142]
20000 [159]15,8,15:[159]3,8,3,"AF,S,R":[132]15,EN:[139]EN[178]62[167][160]15:[160]3
20001 [153]"CHECKING DISK INITATING PROGRAM"
20002 [139]EN[178]62[167] [160]3:[137]3280
20005 [139]EN[179]20[167][132]3,A$(1),A$(2),A$(3),A$(4)
20010 [160]3:[142]
30040 [129]RFF[178]53121 [164] 53247:[135]GG:X[178]X[170]GG:[151]RFF,GG:[130]
30060 [131]32,185,207,201,25,176,61,133,251,32
30070 [131]185,207,201,40,176,52,133,211,165,251,133,214,76,108,229,32
30080 [131]185,207,133,253
30090 [131]32,185,207,240,33,133,254,24,101,253,201,26,176,24,166,253,32,255
30100 [131] 233,230,253,198,254,208,245,96,32,253,174,32
30120 [131]158,173,32,247,183,165,20,96
30130 [131] 76,72,178,169,0,133,253,169,212,133,254,160,1,169,50,145,253
30140 [131]160,5,169,9,145
30150 [131]253,160,24,169,15,145,253,160,4,169,17,145,253,169,200,133,252,162,0
30170 [131]202,208,253,198,252,208,249,160,0,152,145,253,200,192,24,208,249,96
30180 [142]
50000 [159]15,8,15:[152]15,"S0:ARDAB V1.5":[148]"ARDAB V1.5",8:[149]"ARDAB*",8
50001 [153]"VERIFYING YOUR PROGRAM":[160]15:[156]:[138]